home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 09 - 1993 / 09.07 Jul 93 / XCMD in Apps / pTest.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-10-04  |  914 b   |  42 lines  |  [TEXT/KAHL]
  1. /* pXFCN.c
  2.    A template program for running XCMD's and XFCN's as
  3.    part of regular applications.
  4.    
  5.    Written by Gerry H. Kenner, Ph.D.
  6.  */
  7.  
  8. #include    "pXFCN.h"
  9.  
  10. main()
  11. {    /* Main procedure of pXFCN    */
  12.     Handle            TempHdl;
  13.     Rect            TheRect;
  14.     WindowPtr        WPtr;
  15.     long            TempLong;
  16.     Str255            TempStr;
  17.     
  18.     InitGraf(&thePort);
  19.     InitFonts();
  20.     FlushEvents( everyEvent, 0 );
  21.     InitWindows();
  22.     InitMenus();
  23.     TEInit();
  24.     InitDialogs(0L);
  25.     InitCursor();
  26.  
  27.     SetRect(&TheRect, screenBits.bounds.left, screenBits.bounds.top + 38, screenBits.bounds.right, 
  28.             screenBits.bounds.bottom);
  29.     WPtr = NewWindow(0L, &TheRect, "\ppXFCN", TRUE, documentProc, (WindowPtr)-1L, TRUE, 
  30.                     0L);
  31.     SetPort(WPtr);
  32.     
  33.     TempHdl = LoadXCMD(3, "pXFCN", "5", "Hello World!");
  34.     
  35.     CtoPstr((char*)*TempHdl);
  36.     MoveTo(50,50);
  37.     DrawString((char*)*TempHdl);
  38.     Delay(60L, &TempLong);
  39.     
  40.     HUnlock(TempHdl);
  41.     DisposHandle(TempHdl);
  42. }    /* end Main procedure of pXFCN    */